)
)
} else {
cat("NO TIENE ERRORES")
}
#################################################################################
# O P E R A C I O N E S  I N S T R U M E N T A D A S  D I F E R E N T E S  A "CC"
# S E A N  I G U A L  A  C E R O
################################################################################
df <- df %>%
mutate(filtro = ifelse (df$CUC == 2103 & df$numero != 1, 1, 0))
df <- df %>%
mutate (v_CC = ifelse (df$cod_segmento != 0 & df$numero != 1 & df$Instrumentacion != 'CC' & df$filtro == 1, 1, 0))
# MENSAJES DE ERROR
df <- df %>%
mutate(Mensaje = ifelse(df$v_CC == 1, c("Existe registros con intrumentación diferente a CC donde envía la cantidad de operaciones con un valor distinto de 1."),0))
df <- df %>%
mutate (C30_fil = case_when (
df$v_CC == 1 ~ 1,
TRUE ~ 0))
C30_fil <- df %>%
filter(C30_fil == 1)
C30_fil <- C30_fil %>%
select(Fila, Cedula, Segmento, numero, Instrumentacion, Mensaje)
if (nrow(C30_fil) > 0) {
datatable(C30_fil,
extensions = 'Buttons',
options = list(autoWidth = TRUE,
dom = 'Blfrtip',
buttons = c('copy', 'excel', 'pdf'),
pageLength = 5,
#dom = 't' #Quitar el filtro
initComplete = JS("function(settings, json) {",
"$(this.api().table().header()).css({'background-color': '#000', 'color': '#fff'});",
"}")
)
)
} else {
cat("NO TIENE ERRORES")
}
####################################################################
# I N S T R U M E N T A C I O N  VIP - VIS - IN  C O N  OD - CH - TP
####################################################################
df <- df %>%  #od_instrumentada == 1 (OD) | df$cod_instrumentada == 7 (CH)| df$cod_instrumentada == 3 (TP)
mutate(filtro = ifelse (df$Instrumentacion == 'OD' | df$Instrumentacion == 'CH' | df$Instrumentacion == 'TP', 1, 0))
df <- df %>%
mutate (v_HP = ifelse (cod_entidad != 3927 & df$cartera == 4 & df$filtro != 1, 1, 0))
# MENSAJES DE ERROR
df <- df %>%
mutate(Mensaje = ifelse(df$v_HP == 1, c("Existe registros de los segmentos 7, 8 y 9 con instrumentación no válidos."),0))
df <- df %>%
mutate (C31_fil = case_when (
df$v_HP == 1 ~ 1,
TRUE ~ 0))
C31_fil <- df %>%
filter(C31_fil == 1)
C31_fil <- C31_fil %>%
select(Fila, Cedula, Segmento, Instrumentacion, Mensaje)
if (nrow(C31_fil) > 0) {
datatable(C31_fil,
extensions = 'Buttons',
options = list(autoWidth = TRUE,
dom = 'Blfrtip',
buttons = c('copy', 'excel', 'pdf'),
pageLength = 5,
#dom = 't' #Quitar el filtro
initComplete = JS("function(settings, json) {",
"$(this.api().table().header()).css({'background-color': '#000', 'color': '#fff'});",
"}")
)
)
} else {
cat("NO TIENE ERRORES")
}
####################################################################
# I N S T R U M E N T A C I O N  M I C R O S  C O N  CC
####################################################################
df <- df %>%
mutate (v_ccm = ifelse (df$cartera == 5 & df$numero <= 1 & df$Instrumentacion == 'CC', 1, 0))
df <- df %>%
mutate (v_ccm = ifelse (df$cartera != 5 & df$Instrumentacion == 'CC', 2, df$v_ccm))
# MENSAJES DE ERROR
df <- df %>%
mutate(Mensaje = ifelse(df$v_ccm == 1, c("Existe registros de microcrédito instrumentados como Créditos Comunales donde la cantidad de operaciones es igual a 1 y debe reportar el número de beneficiarios del crédito."),0))
df <- df %>%
mutate(Mensaje = ifelse(df$v_ccm == 2, c("Existe registros para segmentos que no son de microcrédito y que se encuentran con instrumentación Créditos Comunales."),df$Mensaje))
df <- df %>%
mutate (C32_fil = case_when (
df$v_ccm == 1 ~ 1,
df$v_ccm == 2 ~ 1,
TRUE ~ 0))
C32_fil <- df %>%
filter(C32_fil == 1)
C32_fil <- C32_fil %>%
select(Fila, Cedula, Segmento, Instrumentacion, Mensaje)
if (nrow(C32_fil) > 0) {
datatable(C32_fil,
extensions = 'Buttons',
options = list(autoWidth = TRUE,
dom = 'Blfrtip',
buttons = c('copy', 'excel', 'pdf'),
pageLength = 5,
#dom = 't' #Quitar el filtro
initComplete = JS("function(settings, json) {",
"$(this.api().table().header()).css({'background-color': '#000', 'color': '#fff'});",
"}")
)
)
} else {
cat("NO TIENE ERRORES")
}
####################################################################
# S E G M E N T O  13  I N V E R S I O N  P U B L I C A
####################################################################
df <- df %>%
mutate (v_ip = ifelse (cod_entidad != 1051 & df$cod_segmento == 13, 1, 0))
df <- df %>%
mutate (v_ip = ifelse (cod_entidad != 1051 & df$cod_segmento != 13 & df$Instrumentacion == 'IP', 2, df$v_ip))
df <- df %>%
mutate (v_ip = ifelse (cod_entidad == 1051 & df$cod_segmento == 13 & df$Instrumentacion != 'IP', 3, df$v_ip))
# MENSAJES DE ERROR
df <- df %>%
mutate(Mensaje = ifelse(df$v_ip == 1, c("Existe registros con segmento igual a 13 que son de uso exclusivo del BEDE."),0))
df <- df %>%
mutate(Mensaje = ifelse(df$v_ip == 2, c("Existe registros con instrumentación IP que son exclusivos del BEDE."),df$Mensaje))
df <- df %>%
mutate(Mensaje = ifelse(df$v_ip == 3, c("Existe registros con segmentos igual a 13 con instrumentación diferente a IP."),df$Mensaje))
df <- df %>%
mutate (C33_fil = case_when (
df$v_ip == 1 ~ 1,
df$v_ip == 2 ~ 1,
TRUE ~ 0))
C33_fil <- df %>%
filter(C33_fil == 1)
C33_fil <- C33_fil %>%
select(Fila, Cedula, Segmento, Instrumentacion, Mensaje)
if (nrow(C33_fil) > 0) {
datatable(C33_fil,
extensions = 'Buttons',
options = list(autoWidth = TRUE,
dom = 'Blfrtip',
buttons = c('copy', 'excel', 'pdf'),
pageLength = 5,
#dom = 't' #Quitar el filtro
initComplete = JS("function(settings, json) {",
"$(this.api().table().header()).css({'background-color': '#000', 'color': '#fff'});",
"}")
)
)
} else {
cat("NO TIENE ERRORES")
}
#######################################################################
# V I G E N C I A  D E  P A G O  N O  S E A  M A Y O R  A L   P L A Z O
#######################################################################
df <- df %>%
mutate (v_frepa = ifelse (df$Pagos > df$Plazo & df$cod_segmento != 0, 1, 0))
df <- df %>%
mutate (v_frepa = ifelse (df$Pagos <= 0 & df$cod_segmento != 0, 2, df$v_frepa))
# MENSAJES DE ERROR
df <- df %>%
mutate(Mensaje = ifelse(df$v_frepa == 1, c("Existe registros donde la frecuencia de pago es mayor al plazo de las operaciones."),0))
df <- df %>%
mutate(Mensaje = ifelse(df$v_frepa == 2, c("Existe registros donde la frecuencia de pago es menor o igual a 0 en operaciones activas."),df$Mensaje))
df <- df %>%
mutate (C34_fil = case_when (
df$v_frepa == 1 ~ 1,
df$v_frepa == 2 ~ 1,
TRUE ~ 0))
C34_fil <- df %>%
filter(C34_fil == 1)
C34_fil <- C34_fil %>%
select(Fila, Cedula, Segmento, Plazo, Pagos, Mensaje)
if (nrow(C34_fil) > 0) {
datatable(C34_fil,
extensions = 'Buttons',
options = list(autoWidth = TRUE,
dom = 'Blfrtip',
buttons = c('copy', 'excel', 'pdf'),
pageLength = 5,
#dom = 't' #Quitar el filtro
initComplete = JS("function(settings, json) {",
"$(this.api().table().header()).css({'background-color': '#000', 'color': '#fff'});",
"}")
)
)
} else {
cat("NO TIENE ERRORES")
}
#######################################################################
# S O B R E G I R O S  Y  C U E N T A S  C O N S O L I D A D A S
# P L A Z O  I G U A L  A  U N O
#######################################################################
df <- df %>%
mutate (filtro = ifelse (df$CUC == 1401 | df$CUC == 1402 | df$CUC == 1404 | df$CUC == 210205 , 1, 0))
df <- df %>%
mutate (v_sobre = ifelse (df$cod_segmento == 0 & df$filtro == 1 & df$Pagos != 1 , 1, 0))
# MENSAJES DE ERROR
df <- df %>%
mutate(Mensaje = ifelse(df$v_sobre == 1, c("Existe registros donde la frecuencia de pago es mayor al plazo de las operaciones."),0))
df <- df %>%
mutate (C35_fil = case_when (
df$v_sobre == 1 ~ 1,
TRUE ~ 0))
C35_fil <- df %>%
filter(C35_fil == 1)
C35_fil <- C35_fil %>%
select(Fila, Cedula, Segmento, Plazo, Pagos, Mensaje)
if (nrow(C35_fil) > 0) {
datatable(C35_fil,
extensions = 'Buttons',
options = list(autoWidth = TRUE,
dom = 'Blfrtip',
buttons = c('copy', 'excel', 'pdf'),
pageLength = 5,
#dom = 't' #Quitar el filtro
initComplete = JS("function(settings, json) {",
"$(this.api().table().header()).css({'background-color': '#000', 'color': '#fff'});",
"}")
)
)
} else {
cat("NO TIENE ERRORES")
}
#######################################################################
# F E C H A  D E  V E N C I M I E N T O  V A L I D O
#######################################################################
df <- df %>%
mutate (filtro = ifelse (df$Vencimiento < "01/01/1901" | df$vacios == -8 , 1, 0)) %>%
mutate (filtro1 = ifelse (df$Instrumentacion == 'TC' | df$Instrumentacion == 'TP' , 1, 0))
df <- df %>%
mutate (v_fecven = ifelse (df$cod_segmento != 0 & df$filtro == 1 & df$filtro1 != 1, 1, 0))
# MENSAJES DE ERROR
df <- df %>%
mutate(Mensaje = ifelse(df$v_fecven == 1, c("Existe registros donde fecha de vencimiento de la operación no es válida para operaciones activas."),0))
df <- df %>%
mutate (C37_fil = case_when (
df$v_fecven == 1 ~ 1,
TRUE ~ 0))
C37_fil <- df %>%
filter(C37_fil == 1)
C37_fil <- C37_fil %>%
select(Fila, Cedula, Segmento, Vencimiento, Pagos, Mensaje)
if (nrow(C37_fil) > 0) {
datatable(C37_fil,
extensions = 'Buttons',
options = list(autoWidth = TRUE,
dom = 'Blfrtip',
buttons = c('copy', 'excel', 'pdf'),
pageLength = 5,
#dom = 't' #Quitar el filtro
initComplete = JS("function(settings, json) {",
"$(this.api().table().header()).css({'background-color': '#000', 'color': '#fff'});",
"}")
)
)
} else {
cat("NO TIENE ERRORES")
}
#######################################################################
# F E C H A  D E  V E N C I M I E N T O
#######################################################################
df <- df %>%
mutate (filtro = ifelse (df$Vencimiento < "01/01/1901" | df$vacios == -8 , 1, 0)) %>%
mutate (filtro1 = ifelse (df$Instrumentacion == 'TC' | df$Instrumentacion == 'TP' , 1, 0)) %>%
mutate (filtro2 = ifelse (df$Vencimiento != "01/01/1901" | df$vacios == -8  , 1, 0)) %>%
mutate (filtro3 = ifelse (df$Operacion == 'SC' | df$Operacion == 'SO'  , 1, 0)) %>%
mutate (filtro4 = ifelse (df$CUC == 210105 | df$CUC == 210135 | df$CUC == 210145 | df$CUC == 210205 , 1, 0)) %>%
mutate (filtro5 = ifelse (df$Vencimiento < fec1 | df$vacios == -8, 1, 0))
df <- df %>%
mutate (v_fecven = ifelse (df$cod_segmento != 0 & df$filtro == 1 & df$filtro1 != 1, 1, 0))
df <- df %>%
mutate (v_fecven = ifelse (df$cod_segmento != 0 & df$filtro1 == 1 & df$filtro2 != 1, 2, df$v_fecven))
df <- df %>%
mutate (v_fecven = ifelse (df$cod_segmento != 0 & df$filtro3 == 1 & df$filtro2 != 1, 3, df$v_fecven))
df <- df %>%
mutate (v_fecven = ifelse (df$cod_segmento == 0 & df$cod_segmento == 2103 & df$filtro == 1, 4, df$v_fecven))
df <- df %>%
mutate (v_fecven = ifelse (df$cod_segmento == 0 & df$filtro4 == 1 & df$filtro5 == 1, 5, df$v_fecven))
# MENSAJES DE ERROR
df <- df %>%
mutate(Mensaje = ifelse(df$v_fecven == 1, c("Existe registros donde fecha de vencimiento de la operación no es válida para operaciones activas."),0))
df <- df %>%
mutate(Mensaje = ifelse(df$v_fecven == 2, c("Existe registros para operaciones activas instrumentadas con TP y TC donde fecha de vencimiento de la operación debe ser cero y envia otro valor."),df$Mensaje))
df <- df %>%
mutate(Mensaje = ifelse(df$v_fecven == 3, c("Existe registros para operaciones activas con codigo de operacion SC y SO donde fecha de vencimiento de la operación debe ser cero y envia otro valor."),df$Mensaje))
df <- df %>%
mutate(Mensaje = ifelse(df$v_fecven == 4, c("Existe registros donde fecha de vencimiento de la operación no es válida para la cuenta 2103 en operaciones pasivas."),df$Mensaje))
df <- df %>%
mutate(Mensaje = ifelse(df$v_fecven == 5, c("Existe registros donde fecha de vencimiento de la operación no es válida para las cuentas 210105, 210135, 210145 , 210205 en operaciones pasivas."),df$Mensaje))
df <- df %>%
mutate (C37_fil = case_when (
df$v_fecven == 1 ~ 1,
df$v_fecven == 2 ~ 1,
df$v_fecven == 3 ~ 1,
df$v_fecven == 4 ~ 1,
df$v_fecven == 5 ~ 1,
TRUE ~ 0))
C37_fil <- df %>%
filter(C37_fil == 1)
C37_fil <- C37_fil %>%
select(Fila, Cedula, Segmento, Vencimiento, Pagos, Mensaje)
if (nrow(C37_fil) > 0) {
datatable(C37_fil,
extensions = 'Buttons',
options = list(autoWidth = TRUE,
dom = 'Blfrtip',
buttons = c('copy', 'excel', 'pdf'),
pageLength = 5,
#dom = 't' #Quitar el filtro
initComplete = JS("function(settings, json) {",
"$(this.api().table().header()).css({'background-color': '#000', 'color': '#fff'});",
"}")
)
)
} else {
cat("NO TIENE ERRORES")
}
#######################################################################
# E S T A D O  D E  L A  O P E R A C I O N
#######################################################################
df <- df %>%
mutate (filtro = ifelse (df$Instrumentacion == 'TP' | df$Instrumentacion == 'TC'  , 1, 0)) %>%
mutate (filtro1 = ifelse (df$Operacion == 'SC' | df$Operacion == 'SO'  , 1, 0)) %>%
mutate (filtro2 = ifelse (df$CUC == 210105 | df$CUC == 210135 | df$CUC == 210145 | df$CUC == 210205 , 1, 0))
df <- df %>%
mutate (v_est = ifelse (df$cod_segmento != 0 & df$filtro == 1 & df$cod_estado != 3, 1, 0))
df <- df %>%
mutate (v_est = ifelse (df$cod_segmento != 0 & df$filtro1 == 1 & df$cod_estado != 3, 2, df$v_est))
df <- df %>%
mutate (v_est = ifelse (df$cod_segmento == 0 & df$filtro2 == 1 & df$cod_estado != 3, 3, df$v_est))
# MENSAJES DE ERROR
df <- df %>%
mutate(Mensaje = ifelse(df$v_est == 1, c("Existe registros de operaciones activas instrumentadas con TC y TP donde el código de estado de la operación debe ser cero y envía otro valor."),0))
df <- df %>%
mutate(Mensaje = ifelse(df$v_est == 2, c("Existe registros de operaciones activas con códigos de operación SC y SO donde el código de estado de la operación debe ser cero y envía otro valor."),df$Mensaje))
df <- df %>%
mutate(Mensaje = ifelse(df$v_est == 3, c("Existe registros para las cuentas pasivas 210105, 210135, 210145 , 210205 donde el código de estado de la operación debe ser cero y envía otro valor."),df$Mensaje))
df <- df %>%
mutate (C38_fil = case_when (
df$v_est == 1 ~ 1,
df$v_est == 2 ~ 1,
df$v_est == 3 ~ 1,
TRUE ~ 0))
C38_fil <- df %>%
filter(C38_fil == 1)
C38_fil <- C38_fil %>%
select(Fila, Cedula, Segmento, Instrumentacion, Operacion, Estado, Mensaje)
if (nrow(C38_fil) > 0) {
datatable(C38_fil,
extensions = 'Buttons',
options = list(autoWidth = TRUE,
dom = 'Blfrtip',
buttons = c('copy', 'excel', 'pdf'),
pageLength = 5,
#dom = 't' #Quitar el filtro
initComplete = JS("function(settings, json) {",
"$(this.api().table().header()).css({'background-color': '#000', 'color': '#fff'});",
"}")
)
)
} else {
cat("NO TIENE ERRORES")
}
################################
# N I V E L  D E  E S T U D I O
################################
df <- df %>%
mutate (filtro = ifelse (df$Instrumentacion == 'TP' | df$Instrumentacion == 'TC' |  df$Instrumentacion == 'CS' , 1, 0)) %>%
mutate (filtro1 = ifelse (df$Operacion == 'SC' | df$Operacion == 'SO'  , 1, 0)) %>%
mutate (filtro2 = ifelse (df$cartera == 1 | df$cartera == 6 , 1, 0)) %>%
mutate (filtro3 = ifelse (df$CUC == 210105 | df$CUC == 210135 | df$CUC == 210145 | df$CUC == 210205 , 1, 0))
df <- df %>%
mutate (v_niv = ifelse (df$cod_segmento != 0 & df$filtro == 1 & df$cod_estudio != 7, 1, 0))
df <- df %>%
mutate (v_niv = ifelse (df$cod_segmento != 0 & df$filtro1 == 1 & df$cod_estudio != 7, 2, df$v_niv))
df <- df %>%
mutate (v_niv = ifelse (df$filtro2 == 1 & df$cod_estudio != 7, 3, df$v_niv))
df <- df %>%
mutate (v_niv = ifelse (df$cartera == 5 & df$cod_clase == 2 & df$cod_estudio != 7, 4, df$v_niv))
df <- df %>%
mutate (v_niv = ifelse (df$cod_segmento == 0 & df$filtro3 == 1 & df$cod_estudio != 7, 5, df$v_niv))
df <- df %>%
mutate (v_niv = ifelse (df$cod_segmento == 0 & df$CUC ==2103 & df$cod_clase == 2 & df$cod_estudio != 7, 6, df$v_niv))
df <- df %>%
mutate (v_niv = ifelse (df$cod_segmento == 0 & df$CUC ==2103 & df$cod_clase == 1 & df$cod_estudio == 7, 7, df$v_niv))
# MENSAJES DE ERROR
df <- df %>%
mutate(Mensaje = ifelse(df$v_niv == 1, c("Existe registros de operaciones activas instrumentadas con CS, TC y TP donde el código de Nivel de Estudio debe ser cero y envía otro valor."),0))
df <- df %>%
mutate(Mensaje = ifelse(df$v_niv == 2, c("Existe registros de operaciones activas con códigos de operación SC y SO donde el código de Nivel de Estudio debe ser cero y envía otro valor."),df$Mensaje))
df <- df %>%
mutate(Mensaje = ifelse(df$v_niv == 3, c("Existe registros de operaciones activas de los segmentos del 1 al 3 y 13 donde el código de Nivel de Estudio debe ser cero y envía otro valor."),df$Mensaje))
df <- df %>%
mutate(Mensaje = ifelse(df$v_niv == 4, c("Existe registros de los segmentos del 10 al 12 con clase de prestarario J=Jurídico donde el código de Nivel de Estudio debe ser cero y envía otro valor."),df$Mensaje))
df <- df %>%
mutate(Mensaje = ifelse(df$v_niv == 5, c("Existe registros para las cuentas pasivas 210105, 210135, 210145 , 210205 donde el código de Nivel de Estudio debe ser cero y envía otro valor."),df$Mensaje))
df <- df %>%
mutate(Mensaje = ifelse(df$v_niv == 6, c("Existe registros para la cuenta pasiva 2103 con Clase de Prestarario J=Jurídico donde el código de Nivel de Estudio debe ser cero y envía otro valor."),df$Mensaje))
df <- df %>%
mutate(Mensaje = ifelse(df$v_niv == 7, c("Existe registros para la cuenta pasiva 2103 con Clase de Prestarario N=Natural donde el código de Nivel de Estudio debe ser diferente de cero."),df$Mensaje))
df <- df %>%
mutate (C39_fil = case_when (
df$v_niv == 1 ~ 1,
df$v_niv == 2 ~ 1,
df$v_niv == 3 ~ 1,
df$v_niv == 4 ~ 1,
df$v_niv == 5 ~ 1,
df$v_niv == 6 ~ 1,
df$v_niv == 7 ~ 1,
TRUE ~ 0))
C39_fil <- df %>%
filter(C39_fil == 1)
C39_fil <- C39_fil %>%
select(Fila, Cedula, Segmento, Instrumentacion, Operacion, Estudios, Mensaje)
if (nrow(C39_fil) > 0) {
datatable(C39_fil,
extensions = 'Buttons',
options = list(autoWidth = TRUE,
dom = 'Blfrtip',
buttons = c('copy', 'excel', 'pdf'),
pageLength = 5,
#dom = 't' #Quitar el filtro
initComplete = JS("function(settings, json) {",
"$(this.api().table().header()).css({'background-color': '#000', 'color': '#fff'});",
"}")
)
)
} else {
cat("NO TIENE ERRORES")
}
##########################################################################
# R E A J U S T E  I G U A L  A  C E R O  O  M U L T I P L O S  D E  90
##########################################################################
df <- df %>%
mutate (multiplos = df$Reajuste %% 90) %>%
mutate (filtro = ifelse (df$cod_segmento != 0 | df$CUC == 2103, 1, 0)) %>%
mutate (filtro1 = ifelse (df$Reajuste > 0 & df$Reajuste < 90, 1, 0))
df <- df %>%
mutate (v_rea = ifelse (df$cod_segmento == 0 & df$multiplos != 0 & df$CUC == 2103, 1, 0))
df <- df %>%
mutate (v_rea = ifelse (df$Reajuste > df$Plazo, 2, df$v_rea))
df <- df %>%
mutate (v_rea = ifelse (df$filtro ==1 & df$filtro1 == 1, 3, df$v_rea))
# MENSAJES DE ERROR
df <- df %>%
mutate(Mensaje = ifelse(df$v_rea == 1, c("Existe registros donde envía el período de reajuste con un valor distinto de 0 y debe envíar 0 o un múltiplo de 90."),0))
df <- df %>%
mutate(Mensaje = ifelse(df$v_rea == 2, c("Existe registros donde el periodo de reajuste de interés es mayor al plazo de la operación."),df$Mensaje))
df <- df %>%
mutate(Mensaje = ifelse(df$v_rea == 3, c("Existe registros donde el período de reajuste está entre 1 y 89 días."),df$Mensaje))
df <- df %>%
mutate (C41_fil = case_when (
df$v_rea == 1 ~ 1,
df$v_rea == 2 ~ 1,
df$v_rea == 3 ~ 1,
TRUE ~ 0))
C41_fil <- df %>%
filter(C41_fil == 1)
C41_fil <- C41_fil %>%
select(Fila, Cedula,  Mensaje)
if (nrow(C41_fil) > 0) {
datatable(C41_fil,
extensions = 'Buttons',
options = list(autoWidth = TRUE,
dom = 'Blfrtip',
buttons = c('copy', 'excel', 'pdf'),
pageLength = 5,
#dom = 't' #Quitar el filtro
initComplete = JS("function(settings, json) {",
"$(this.api().table().header()).css({'background-color': '#000', 'color': '#fff'});",
"}")
)
)
} else {
cat("NO TIENE ERRORES")
}
View(df)
df <- df %>%
mutate (v_tir = ifelse (df$cod_segmento == 0 & df$CUC != 2103 & df$TIR != df$TEA, 1, 0))
df <- df %>%
mutate (v_tir = ifelse (df$Pagos <= 360 & df$TIR > df$TEA, 2, df$v_tir))
# MENSAJES DE ERROR
df <- df %>%
mutate(Mensaje = ifelse(df$v_tir == 1, c("Existe registros en operaciones pasivas distintas a la cuenta 2103 donde tasa nominal y efectiva son diferentes."),0))
df <- df %>%
mutate(Mensaje = ifelse(df$v_tir == 2, c("Existe registros en operaciones pasivas distintas a la cuenta 2103 donde tasa nominal y efectiva son diferentes."),df$Mensaje))
df <- df %>%
mutate (C42_fil = case_when (
df$v_tir == 1 ~ 1,
df$v_tir == 2 ~ 1,
TRUE ~ 0))
C42_fil <- df %>%
filter(C42_fil == 1)
C42_fil <- C42_fil %>%
select(Fila, Cedula,  Mensaje)
if (nrow(C42_fil) > 0) {
datatable(C42_fil,
extensions = 'Buttons',
options = list(autoWidth = TRUE,
dom = 'Blfrtip',
buttons = c('copy', 'excel', 'pdf'),
pageLength = 5,
#dom = 't' #Quitar el filtro
initComplete = JS("function(settings, json) {",
"$(this.api().table().header()).css({'background-color': '#000', 'color': '#fff'});",
"}")
)
)
} else {
cat("NO TIENE ERRORES")
}
